home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / ETEST2.TRP < prev    next >
Text File  |  1995-01-17  |  193b  |  11 lines
  1. procedure main
  2. var
  3.     success : boolean = true;
  4.         a : string = "A"
  5.         b : string = "B"
  6. endVar
  7.     if ((success) and (a = "A") and    (b = "B"))
  8.         writeln("Success")
  9.     endif
  10. endProc
  11.